VERSION 5.00
Begin VB.Form frmProperties 
   BorderStyle     =   4  'Fixed ToolWindow
   Caption         =   "Properties"
   ClientHeight    =   3975
   ClientLeft      =   45
   ClientTop       =   315
   ClientWidth     =   4230
   ControlBox      =   0   'False
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3975
   ScaleWidth      =   4230
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  'CenterOwner
   Begin VB.Timer Timer 
      Enabled         =   0   'False
      Interval        =   50
      Left            =   3360
      Top             =   2760
   End
   Begin VB.Frame frmProgressControl 
      Caption         =   "Progress Control"
      Height          =   735
      Left            =   240
      TabIndex        =   9
      Top             =   1800
      Width           =   3735
      Begin VB.CommandButton cmdTestProgress 
         Caption         =   "Test Progress"
         Enabled         =   0   'False
         Height          =   375
         Left            =   1680
         TabIndex        =   11
         Top             =   240
         Width           =   1935
      End
      Begin VB.CheckBox chkProgressShow 
         Caption         =   "Show"
         Height          =   255
         Left            =   120
         TabIndex        =   10
         Top             =   310
         Width           =   1335
      End
   End
   Begin VB.Frame frmAnimationControl 
      Caption         =   "Animation Control"
      Height          =   735
      Left            =   240
      TabIndex        =   6
      Top             =   1000
      Width           =   3735
      Begin VB.CheckBox chkPlayAnimation 
         Caption         =   "Play Animation"
         Enabled         =   0   'False
         Height          =   255
         Left            =   1560
         TabIndex        =   8
         Top             =   310
         Width           =   2055
      End
      Begin VB.CheckBox chkAnimationShow 
         Caption         =   "Show"
         Height          =   195
         Left            =   120
         TabIndex        =   7
         Top             =   310
         Width           =   1215
      End
   End
   Begin VB.Frame frmIcon 
      Caption         =   "Icon"
      Height          =   735
      Left            =   240
      TabIndex        =   3
      Top             =   240
      Width           =   3735
      Begin VB.CheckBox chkEnableIcon 
         Caption         =   "Enable Icon"
         Enabled         =   0   'False
         Height          =   255
         Left            =   1560
         TabIndex        =   5
         Top             =   310
         Value           =   1  'Checked
         Width           =   1935
      End
      Begin VB.CheckBox chkIconShow 
         Caption         =   "Show"
         Height          =   255
         Left            =   120
         TabIndex        =   4
         Top             =   310
         Width           =   1215
      End
   End
   Begin VB.CheckBox chkEditControl 
      Caption         =   "Edit Control"
      Height          =   255
      Left            =   240
      TabIndex        =   2
      Top             =   2740
      Width           =   2175
   End
   Begin VB.CommandButton cmdOk 
      Caption         =   "Done"
      Height          =   375
      Left            =   2280
      TabIndex        =   1
      Top             =   3360
      Width           =   1695
   End
   Begin VB.CheckBox chkCompanyLogo 
      Caption         =   "Company Logo"
      Height          =   255
      Left            =   240
      TabIndex        =   0
      Top             =   3000
      Width           =   2295
   End
End
Attribute VB_Name = "frmProperties"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Function FindPane(Id As Long) As StatusBarPane
    Set FindPane = frmMain.CommandBars.StatusBar.FindPane(Id)
End Function

Private Sub chkAnimationPlay_Click()
End Sub

Private Sub chkAnimationShow_Click()
    Dim bShow As Boolean
    bShow = chkAnimationShow.Value = 1
    FindPane(ID_INDICATOR_ANIMATION).Visible = bShow
    chkPlayAnimation.Enabled = bShow
End Sub

Private Sub chkEditControl_Click()
    FindPane(ID_INDICATOR_TEXT).Visible = chkEditControl.Value = 1
End Sub

Private Sub chkPlayAnimation_Click()
    If chkPlayAnimation.Value = 1 Then
        frmMain.Animation.Play
    Else
        frmMain.Animation.Stop
    End If
End Sub


Public Sub chkCompanyLogo_Click()
    FindPane(ID_INDICATOR_LOGO).Visible = chkCompanyLogo.Value = 1
End Sub

Private Sub chkEnableIcon_Click()
    Dim bEnabled As Boolean
    bEnabled = FindPane(ID_INDICATOR_ICON).Style And SBPS_DISABLED <> 0
    
    FindPane(ID_INDICATOR_ICON).Style = IIf(bEnabled, 0, SBPS_DISABLED)
End Sub

Private Sub chkIconShow_Click()
    Dim bShow As Boolean
    bShow = chkIconShow.Value = 1
    FindPane(ID_INDICATOR_ICON).Visible = bShow
    chkEnableIcon.Enabled = bShow
End Sub


Private Sub chkProgressShow_Click()
    Dim bShow As Boolean
    bShow = chkProgressShow.Value = 1
    FindPane(ID_INDICATOR_PROGRESS).Visible = bShow
    cmdTestProgress.Enabled = bShow
End Sub

Private Sub cmdOk_Click()
    Me.Visible = False
End Sub

Private Sub cmdTestProgress_Click()
Timer.Enabled = True
End Sub

Private Sub Timer_Timer()
    frmMain.ProgressBar.Value = frmMain.ProgressBar.Value + 1
    If frmMain.ProgressBar.Value >= 100 Then
        frmMain.ProgressBar.Value = 0
        Timer.Enabled = False
    End If
End Sub
